home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / changecaseletter.fpl < prev    next >
Text File  |  1995-07-18  |  442b  |  21 lines
  1. export void change_case_letter(void)
  2. {
  3.   int oldchar=GetChar();
  4.   int newchar=Islower(oldchar);
  5.  
  6.   if (newchar<0)
  7.     newchar=Isupper(oldchar);
  8.  
  9.   if (oldchar>=0 && newchar>=0) {
  10.     int insertmode=ReadInfo("insert_mode");
  11.     if (insertmode)
  12.       SetInfo(-1, "insert_mode", 0);
  13.     Output(itoc(newchar));
  14.     if (insertmode)
  15.       SetInfo(-1, "insert_mode", 1);
  16.   } else
  17.     CursorRight();
  18. }
  19.  
  20. AssignKey("change_case_letter();", "Amiga g");
  21.